Imports Clo = Enhancements.Core.Logging
Imports Ref = System.Reflection
Imports Sys = System

Namespace Enhancements.Basic.Expressions.Values
    ''' <summary>The exception that is thrown when a decimal fixed-point value token representation is not possible.</summary>
    <Serializable(), DebuggerStepThrough()> _
    Public NotInheritable Class DecimalRepresentationException
        Inherits ValueRepresentationException

        Private Sub New(ByVal _value As System.Decimal)
            MyBase.New(_value)
        End Sub

        ''' <summary>Throws an exception.</summary>
        ''' <exception cref="DecimalRepresentationException"> </exception>
        Friend Overloads Shared Sub ___Throw(ByVal _value As System.Decimal)
            Dim _exception As DecimalRepresentationException = New DecimalRepresentationException(_value)

            Throw _exception
        End Sub

    End Class
End Namespace
